Aminet 21/Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso/Aminet/misc/emu/iecutil.lha/inc/graphics/gfx.h

Text File | 1997-05-06 | 659 b | 26 lines

{$ifndef GRAPHICS_GFX_H}
Const GRAPHICS_GFX_H = 0;
      BITSET = $8000;
      BITCLR = 0;
Type p_Rectangle = ^Rectangle;
     Rectangle = Record
                   MinX, MinY, MaxX, MaxY: integer
                 end;
     p_tPoint = ^tPoint;
     tPoint = Record
                x, y: integer
              end;
     PLANEPTR = ^Ptr;
     p_BitMap = ^BitMap;
     BitMap = Record
                BytesPerRow, Rows: Word;
                Flags, Depth: Byte;
                pad: Word;
                Planes: Array[0..7] of PLANEPTR
              end;
Function RASSIZE(w, h: Long): Long;
  begin
    RASSIZE := h*(((w + 15) div 8) and $FFFE)
  end;
{$endif}